library("Rcpp")#加载RCpp 调用c++ 方法
library("hash")#加载hash, 返回hash表结构数据
sourceCpp("facecat.cpp")

"设置目录
  dir 目录"
facecat.setProgramDir <- function(dir)
{
  return(setProgramDir(dir))
}

"显示窗体
  htmlPath 路径"
facecat.showWindow <- function(htmlPath){
  return (showWindow(htmlPath))
}

"启动秒表
  id 编号
  tick 间隔"
facecat.startTimer <- function(id, tick){
  return (startTimer(id, tick))
}

"执行脚本
  script 脚本"
facecat.executeScript <- function(script)
{
  return(executeScript(script))
}

"循环消息"
facecat.getMessage <- function(){
  return (getMessage())
}

"执行消息"
facecat.doMessage <- function(){
  return (doMessage())
}

"执行消息"
facecat.getCacheText <- function(){
  return (getCacheText())
}


